home *** CD-ROM | disk | FTP | other *** search
/ Amiga CD-ROM Collection / Amiga CD-ROM Collection - Auge 4000 and Cactus and Demo Util.iso / auge4000 / 46 / lib / amiga / divs.a < prev    next >
Text File  |  1990-06-20  |  368b  |  33 lines
  1.  
  2.         ;   DIVS.A
  3.         ;
  4.         ;   D1/D0 -> D0 signed divide
  5.         ;   32/32 -> 32 signed divide
  6.  
  7.         section text,code
  8.  
  9.         xdef    __divs
  10.         xref    __divu
  11.  
  12. __divs:
  13.         tst.l    D0
  14.         bmi    ds10
  15.         tst.l    D1         ; numerator
  16.         bmi    ds20
  17.         bra    __divu
  18. ds10        neg.l    D0
  19.         tst.l    D1
  20.         bmi    ds30
  21. ds10n        bsr    __divu
  22.         neg.l    D0
  23.         rts
  24. ds20        neg.l    D1
  25.         bsr    __divu
  26.         neg.l    D0
  27.         rts
  28. ds30        neg.l    D1
  29.         bra    __divu
  30.  
  31.         END
  32.  
  33.